Przykad 2.7. Kosztowne obliczenia
;; Dwa do n-tej: liczba -> liczba
(define (TwoToTheN n)
   (let loop ([i n]
              [result 1])
      if (= i 0)
         result
         (loop (sub1 i) (* 2 result)))))

;; Wynik przykadowego obliczenia
(TwoToTheN 851)
15015033657609400459942315391018513722623519187099007073355798781525263125238463
41589482039716066276169710803836941092523836538133260448652352292181327981032007
94538451818051546732566997782908246399595358358052523086606780893692342385292277
74479195332149248
